home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 1
/
Cream of the Crop 1.iso
/
PROGRAM
/
GRCRYPT.ARJ
/
DEGREEK.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1980-01-01
|
670b
|
26 lines
Program DEcode;
Var
Infile,Outfile:text;
Tempbuf:string[80];
I:integer;
Begin
if paramstr(1)='?' then
begin
writeln('Official DeGreeker Decryption Program');
Writeln('Copyright 1992 PhrooTechnologies');
Writeln('syntax is DEGREEK: <infile> <outfile>');
Halt;
end;
Assign(infile,paramstr(1));
reset(infile);
Assign(outfile,paramstr(2));
rewrite(outfile);
repeat
Readln(infile,tempbuf);
for I:=1 to length(tempbuf) do
write(outfile,chr(ord(upcase(tempbuf[I]))-224+65));
writeln(outfile);
until eof(infile);
close(outfile);
close(infile);
end.